Acorn RISC PD-CD 1/Acorn RISC PD-CD 1.iso/languages/perl/lib/stat

Text File | 1990-08-14 | 509 b | 27 lines

;# $Header: stat.pl,v 3.0.1.1 90/08/09 04:01:34 lwall Locked $

;# Usage:
;#    require 'stat.pl';
;#    @ary = stat(foo);
;#    $st_dev = @ary[$ST_DEV];
;#
$ST_TYPE =    0 + $[;
$ST_FTYPE =    1 + $[;
$ST_LOAD =    2 + $[;
$ST_EXEC =    3 + $[;
$ST_LENGTH =    4 + $[;
$ST_ATTR =    5 + $[;
$ST_TIME =    6 + $[;
$ST_UTIME =    7 + $[;

;# Usage:
;#    require 'stat.pl';
;#    do Stat('foo');        # sets st_* as a side effect
;#
sub Stat {
    ($st_type,$st_ftype,$st_load,$st_exec,$st_length,$st_attr,
    $st_time,$st_utime) = stat(shift(@_));
}

1;